inherited fmMerkezdenArizaKabul: TfmMerkezdenArizaKabul
  Left = 316
  Top = 190
  Caption = 'Merkezden Gelen Ar'#305'za Kabul'
  ClientHeight = 475
  ClientWidth = 879
  PixelsPerInch = 96
  TextHeight = 13
  object grdListe: TwwDBGrid [0]
    Left = 0
    Top = 60
    Width = 879
    Height = 377
    DisableThemes = False
    ControlType.Strings = (
      'selected;CheckBox;True;False'
      'Selected;CheckBox;True;False')
    Selected.Strings = (
      'selected'#9'3'#9'Se'#231#9#9
      'formno'#9'8'#9'Form No'#9'F'
      'Firma'#9'28'#9'Firma'#9'F'
      'DisTakipFormNo'#9'9'#9'D'#305#351'.FormNo'#9'F'
      'MerkezFormNo'#9'10'#9'Mrkz.FormNo'#9'F'
      'Tarih'#9'18'#9'Tarih'#9'F'
      'serino'#9'20'#9'Seri No'#9'F'
      'stokkodu'#9'25'#9'Stok Kodu'#9'F'
      'Cinsi'#9'30'#9'Cinsi'#9'F'
      'grubu'#9'18'#9'Grubu'#9'F'
      'bildirilenariza'#9'50'#9'Bildirilen Ar'#305'za'#9'F'
      'Aksesuar'#9'50'#9'Aksesuar'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = ArizaKabulQS
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = True
    UseTFields = False
  end
  object Panel1: TPanel [1]
    Left = 0
    Top = 0
    Width = 879
    Height = 60
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 12
      Top = 12
      Width = 32
      Height = 13
      Caption = 'Bili'#351'No'
    end
    object Label2: TLabel
      Left = 12
      Top = 35
      Width = 49
      Height = 13
      Caption = #304'rsaliye No'
    end
    object edBilisNo: TwwDBEdit
      Left = 67
      Top = 9
      Width = 121
      Height = 21
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object edirsaliyeNo: TwwDBEdit
      Left = 67
      Top = 32
      Width = 121
      Height = 21
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object byenile: TBitBtn
      Left = 200
      Top = 10
      Width = 99
      Height = 42
      Action = acListele
      Caption = 'Yenile (F5)'
      TabOrder = 2
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 437
    Width = 879
    Height = 38
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      879
      38)
    object bkapat: TBitBtn
      Left = 794
      Top = 4
      Width = 79
      Height = 33
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      TabOrder = 0
      OnClick = bkapatClick
    end
    object btTumunuSec: TBitBtn
      Tag = 1
      Left = 98
      Top = 4
      Width = 79
      Height = 33
      Caption = 'T'#252'm'#252'n'#252' Se'#231
      TabOrder = 1
      OnClick = btTumunuSecClick
    end
    object btKabulet: TBitBtn
      Left = 7
      Top = 4
      Width = 85
      Height = 33
      Caption = 'Kabul Et'
      TabOrder = 2
      OnClick = btKabuletClick
    end
    object btSecimiKaldir: TBitBtn
      Left = 182
      Top = 4
      Width = 79
      Height = 33
      Caption = 'Se'#231'imi Kald'#305'r'
      TabOrder = 3
      OnClick = btTumunuSecClick
    end
  end
  inherited alKeyControl: TActionList
    Left = 667
    Top = 403
    object acListele: TAction
      Caption = 'Yenile (F5)'
      ShortCut = 116
      OnExecute = acListeleExecute
    end
  end
  inherited XPManifest: TXPManifest
    Left = 734
    Top = 400
  end
  object ArizaKabulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select top 1tk.Selected,Dt.FormNo DisTakipFormNo,Tkb.FormNo,fh.F' +
        'ormNo MerkezFormNo,Tkb.SeriNo,Tkb.Tarih,fh.Stokkod,fh.Stokkodu,f' +
        'h.Cinsi,Tk.Bildirilenariza,Tk.Aksesuar,'
      'Firma=(select firmaadi from cari where carikod=tkb.Carikodgir),'
      
        'Grubu=(select isim from stgrupTanim where stgrupTanim.id=(select' +
        ' GrupId from stok where Stok.stokkod=Fh.stokkod))'
      'from fathar fh'
      'Join Teknik tk on (Tk.FormNo=fh.FormNo)'
      'Join DisTakip Dt on (Tk.bolgedistakipformno=Dt.FormNo)'
      'Join Teknik tkb on (Tkb.FormNo=Dt.tekFormNo)'
      'where bilisno =1680159')
    Left = 408
    Top = 159
  end
  object ArizaKabulQS: TDataSource
    DataSet = ArizaKabulQ
    Left = 376
    Top = 160
  end
  object aqMekezForm: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * From Teknik Where FormNo=:FormNo')
    Left = 542
    Top = 175
  end
  object aqBolgeForm: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * From Teknik Where FormNo=:FormNo')
    Left = 543
    Top = 229
  end
  object aqBolgeOnarim: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'SeriNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'Select Top 1 * From Onarim Where FormNo=:FormNo and SeriNo=:Seri' +
        'No Order By Onarimno Desc')
    Left = 622
    Top = 226
  end
  object aqMerkezOnarim: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'SeriNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'Select Top 1 * From Onarim Where FormNo=:FormNo and SeriNo=:Seri' +
        'No Order By Onarimno Desc')
    Left = 620
    Top = 175
  end
  object aqDisTakipForm: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * From DisTakip Where FormNo=:FormNo')
    Left = 538
    Top = 118
  end
end
